@Marker(Library,S1lisp,Dover)

@Font(SpiceRoman10)
@Libraryfile(Table)
@Libraryfile(CBolio)
@Style(Spread .1 in, Spacing .2 in)
@Modify(HD3, above 0.3inch, below 0.15inch)
@Modify(HD2, below 0.25inch)
@Modify[Hd4, Above .3inch, Below 0, Break Before]
@Modify(paragraph, 
	ContentsForm=" ", 
	TitleForm="@HD4[@parm(title)@hsp(1quad)]",
	numbered [], referenced [])
@Textform(Mline="@enter(liner,script +5pts)@tabclear()@&@ @\@leave(liner)")

@Textform(Query = "@Begin(Quotation, Font Smallbodyfont, Indent +0, Spread 0.5)
	@t[???] @b[Query:] @Parm(Text) @End(Quotation)")
@Textform(Kwd = "@f[:@Parm(Text)]")

@form(S1lispTitlePage={
@begin(titlepage)
@begin(titlebox,centered)
@majorheading(CARNEGIE-MELLON UNIVERSITY)
@heading(DEPARTMENT@  OF@  COMPUTER@  SCIENCE)
@heading[S-1@ LISP@  PROJECT]
@begin(format, leftmargin +1.10inch, rightmargin +1.10inch)
@mline()
@begin(center, spacing 1)
@heading[@Parm(Title)]

@Parm(Author)

@Parm(Date,default="@value(date)")
@end(center)
@mline()
@end(format)
@end(titlebox)

@begin(center,spacing 1.3, above 1inch)
S-1 LISP Document @Parm(Number,default="S∪∪")
Location of machine-readable ∀le: @parm(File,default="@value(Manuscript) @@ @value(site)")
@end(center)

@Copyrightnotice(@Parm(Copyrightholder, default <Carnegie-Mellon University>))
@begin(researchcredit)
@imbed( internal, 
def "This is an internal working document of the Computer Science 
	Department, Carnegie-Mellon University, Schenley Park, Pittsburgh, 
	Pennsylvania 15213.
	Some of the ideas expressed in this document may be   
	only partially developed or erroneous.  Distribution of this document
	outside the immediate working community is discouraged; publication   
	of this document is forbidden.")

Supported by LLNL???.  The views   
and conclusions contained in this document are those of the authors   
and should not be interpreted as representing the o⊃cial policies,   
either expressed or implied, of LLNL???.
@end(researchcredit)
@end(titlepage)

@pageheading(
	left [@c(@Parm(Title))], 
	right [@value(page)])
@pagefooting()

@newpage
}) @comment[ End of S1lispTitlePage form ]


@form(VaxLispTitlePage={
@begin(titlepage)
@begin(titlebox,centered)
@heading[VAX@ COMMON@  LISP@  PROJECT]
@begin(format, leftmargin +1.10inch, rightmargin +1.10inch)
@mline()
@begin(center, spacing 1)
@heading[@Parm(Title)]

@Parm(Author)

@Parm(Date,default="@value(date)")
@end(center)
@mline()
@end(format)
@end(titlebox)

@Copyrightnotice(@Parm(Copyrightholder, default <Digital Equipment Corporation>))
@begin(researchcredit)
@end(researchcredit)
@end(titlepage)

@pageheading(
	left [@c(@Parm(Title))], 
	right [@value(page)])
@pagefooting()

@newpage
}) @comment[ End of VaxLispTitlePage form ]


@Define(Defenvironment = Text, Need 4, Nofill, Justification Off, Break,
		Indent 0, Above 2, Below 2, Spread 0.5)
@Define(Defbody = Text, Leftmargin +9, Spread 0.5)
@Define(Undefbody = Text, Leftmargin -9, Above 0, Below 0)
@Form(Defvar = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @t[@Parm(Var)]     @>[@i[Variable]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defvar1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @t[@Parm(Var)]     @>[@i[Variable]]@\
   @End(Undefbody)")
@Commandstring(Enddefvar = "@End(Defbody)@End(Defenvironment)")
@Form(Defun = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @t[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Function]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defun1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @t[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Function]]@\
   @End(Undefbody)")
@Commandstring(Enddefun = "@End(Defbody)@End(Defenvironment)")
@Form(Defmac = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @t[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Macro]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defmac1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @t[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Macro]]@\
   @End(Undefbody)")
@Commandstring(Enddefmac = "@End(Defbody)@End(Defenvironment)")
@Form(Defspec = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @t[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Special form]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defspec1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @t[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Special form]]@\
   @End(Undefbody)")
@Commandstring(Enddefspec = "@End(Defbody)@End(Defenvironment)")

@Marker(Library,S1lisp,File)

@Enable(EOF)
@Libraryfile(CBolio)
@Textform(mline="@enter(liner,script +5pts)@tabclear()@&@ @\@leave(liner)")

@Textform(Query = "@Begin(Quotation, Indent +0, Spread 0.5)
	??? Query: @Parm(Text) @End(Quotation)")
@Textform(Kwd = "@f[:@Parm(Text)]")

@form(S1lispTitlePage={
@begin(center, spacing 1)
@heading[@Parm(Title)]
@Parm(Author)
@Parm(Date,default="@value(date)")
@end(center)

@Send(EOF <
@Begin(Format)

-------------------------------------------------------------
Copyright (C) @Value(Year) @Parm(Copyrightholder, default <Carnegie-Mellon University>)

@End(Format)

@imbed( internal, 
def "This is an internal working document of the Computer Science 
	Department, Carnegie-Mellon University, Schenley Park, Pittsburgh, 
	Pennsylvania 15213.
	Some of the ideas expressed in this document may be   
	only partially developed or erroneous.  Distribution of this document
	outside the immediate working community is discouraged; publication   
	of this document is forbidden.")

Supported by LLNL???. The views   
and conclusions contained in this document are those of the authors   
and should not be interpreted as representing the official policies,   
either expressed or implied, of LLNL???.
   >) @comment[ End of Send ]
}) @comment[ End of S1lispTitlePage form ]

@Form(VaxlispTitlePage={
@begin(center, spacing 1)
@heading[@Parm(Title)]
@Parm(Author)
@Parm(Date,default="@value(date)")
@end(center)

@Send(EOF <
@Begin(Format)

-------------------------------------------------------------
Copyright (C) @Value(Year) @Parm(Copyrightholder, default <Digital Equipment Corporation>)

@End(Format)
   >) @comment[ End of Send ]
}) @comment[ End of S1lispTitlePage form ]

@Define(Defenvironment = Text, Need 4, Nofill, Justification Off, Break,
		Indent 0, Above 2, Below 2, Spread 1)
@Define(Defbody = Text, Leftmargin +9, Spread 1)
@Define(Undefbody = Text, Leftmargin -9, Above 0, Below 0)
@Form(Defvar = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @f[@Parm(Var)]     @>[@i[Variable]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defvar1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @f[@Parm(Var)]     @>[@i[Variable]]@\
   @End(Undefbody)")
@Commandstring(Enddefvar = "@End(Defbody)@End(Defenvironment)")
@Form(Defun = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Function]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defun1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Function]]@\
   @End(Undefbody)")
@Commandstring(Enddefun = "@End(Defbody)@End(Defenvironment)")
@Form(Defmac = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Macro]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defmac1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Macro]]@\
   @End(Undefbody)")
@Commandstring(Enddefmac = "@End(Defbody)@End(Defenvironment)")
@Form(Defspec = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Special form]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defspec1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Special form]]@\
   @End(Undefbody)")
@Commandstring(Enddefspec = "@End(Defbody)@End(Defenvironment)")

@Marker(Library,S1lisp)

@Libraryfile(CBolio)
@Textform(mline="@enter(liner,script +5pts)@tabclear()@&@ @\@leave(liner)")

@Textform(Query = "@Begin(Quotation, Font Smallbodyfont, Indent +0, Spread 0.5)
	??? Query: @Parm(Text) @End(Quotation)")
@Textform(Kwd = "@f[:@Parm(Text)]")

@form(S1lispTitlePage={
@begin(titlepage)
@begin(titlebox,centered)
@majorheading(CARNEGIE-MELLON UNIVERSITY)
@heading(DEPARTMENT OF COMPUTER SCIENCE)
@heading[S-1 LISP PROJECT]
@begin(format, leftmargin +1.10inch, rightmargin +1.10inch)
@begin(center, spacing 1)
@heading[@Parm(Title)]

@Parm(Author)

@Parm(Date,default="@value(date)")
@end(center)
@end(format)
@end(titlebox)

@begin(center,spacing 1.3, above 1inch)
S-1 LISP Document @Parm(Number,default="<number not yet assigned>")
Location of machine-readable file: @parm(File,default="@value(Manuscript) @@ @value(site)")
@end(center)

@Copyrightnotice(@Parm(Copyrightholder, default <Carnegie-Mellon University>))
@begin(researchcredit)
@imbed( internal, 
def "This is an internal working document of the Computer Science 
	Department, Carnegie-Mellon University, Schenley Park, Pittsburgh, 
	Pennsylvania 15213.
	Some of the ideas expressed in this document may be   
	only partially developed or erroneous.  Distribution of this document
	outside the immediate working community is discouraged; publication   
	of this document is forbidden.")

Supported by LLNL???. The views   
and conclusions contained in this document are those of the authors   
and should not be interpreted as representing the official policies,   
either expressed or implied, of LLNL???.
@end(researchcredit)
@end(titlepage)

@pageheading(
	left [@c(@Parm(Title))], 
	right [@value(page)])
@pagefooting()

@newpage

@comment[ Leave larger blank area at top of first page ]
@format[ @blankspace( 1inch ) ]
}) @comment[ End of S1lispTitlePage form ]

@form(VaxlispTitlePage={
@begin(titlepage)
@begin(titlebox,centered)
@heading[VAX COMMON LISP PROJECT]
@begin(format, leftmargin +1.10inch, rightmargin +1.10inch)
@begin(center, spacing 1)
@heading[@Parm(Title)]

@Parm(Author)

@Parm(Date,default="@value(date)")
@end(center)
@end(format)
@end(titlebox)

@Copyrightnotice(@Parm(Copyrightholder, default <Digital Equipment Corporation>))
@begin(researchcredit)
@end(researchcredit)
@end(titlepage)

@pageheading(
	left [@c(@Parm(Title))], 
	right [@value(page)])
@pagefooting()

@newpage

@comment[ Leave larger blank area at top of first page ]
@format[ @blankspace( 1inch ) ]
}) @comment[ End of VaxlispTitlePage form ]


@Define(Defenvironment = Text, Need 4, Nofill, Justification Off, Break,
		Indent 0, Above 2, Below 2, Spread 0.5)
@Define(Defbody = Text, Leftmargin +9, Spread 0.5)
@Define(Undefbody = Text, Leftmargin -9, Above 0, Below 0)
@Form(Defvar = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @f[@Parm(Var)]     @>[@i[Variable]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defvar1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @f[@Parm(Var)]     @>[@i[Variable]]@\
   @End(Undefbody)")
@Commandstring(Enddefvar = "@End(Defbody)@End(Defenvironment)")
@Form(Defun = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Function]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defun1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Function]]@\
   @End(Undefbody)")
@Commandstring(Enddefun = "@End(Defbody)@End(Defenvironment)")
@Form(Defmac = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Macro]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defmac1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Macro]]@\
   @End(Undefbody)")
@Commandstring(Enddefmac = "@End(Defbody)@End(Defenvironment)")
@Form(Defspec = "@Begin(Defenvironment)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Special form]]@\
   @Begin(Defbody)@Tabclear ")
@Form(Defspec1 = "@Begin(Undefbody)@Tabset(5 in, +1 in)@}
   @f[@Parm(Fun) @Parm(Args, default <>)]     @>[@i[Special form]]@\
   @End(Undefbody)")
@Commandstring(Enddefspec = "@End(Defbody)@End(Defenvironment)")